﻿Imports System.Data.SqlClient, System.Globalization

Public Class ProfesorAD
    Public Function fBuscarProfesor() As List(Of ProfesorEN)
        Dim lProfesores As List(Of ProfesorEN) = New List(Of ProfesorEN)
        Dim objProfesorLeido As ProfesorEN

        'Instanciamos un objeto de la clase ConexionBD
        Dim cnx As New ConexionBD
        'Se crea la sentencia SQL que en este caso es un STORE PROCEDURE 
        Dim strSql As String = "exec sp_BUSCAR_PROFESOR "
        'Creamos un conexión a la BD"
        Dim cnx_1 As SqlConnection
        cnx_1 = cnx.obtenerCnx()
        Dim cmd As New SqlCommand(strSql, cnx_1)
        Dim myreader As SqlClient.SqlDataReader = cmd.ExecuteReader()

        If myreader.HasRows Then
            While (myreader.Read())
                objProfesorLeido = New ProfesorEN
                objProfesorLeido.NombreProfesor = myreader.GetString(0)
                objProfesorLeido.ApePaternoProfesor = myreader.GetString(1)
                objProfesorLeido.ApeMaternoProfesor = myreader.GetString(2)
                lProfesores.Add(objProfesorLeido)
            End While
        Else
            MsgBox("Se presentaron problemas al cargar los Profesores ", MsgBoxStyle.Information, "Error")
        End If
        myreader.Close()
        cnx_1.Close()
        Return lProfesores
    End Function
End Class
